home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / m / muiv3.1cracked.lha / MUI / Developer / Modula / txt / MuiSupport.def < prev    next >
Text File  |  1995-09-25  |  1KB  |  58 lines
  1. DEFINITION MODULE MuiSupport;
  2.  
  3. (*$ DEFINE Locale:=FALSE *)
  4.  
  5. (*
  6. **  MuiSupport 2.0
  7. **
  8. **  done by Christian "Kochtopf" Scholz
  9. **
  10. **  just the DoMethod-PROCEDURE because there was none shipped with M2Amiga
  11. **  (or i haven't found it ;-)
  12. **
  13. **  Note that DoMethod returns nothing ( e.g. for setting up a Notify )
  14. **  and DOMethod does ( e.g. for the event-loop )
  15. **
  16. **  Then there is the fail-PROCEDURE (orig. defined in demo.h)
  17. **  A init-PROCEDURE is not needed.
  18. **
  19. **  $Log: MuiSupport.def $
  20. # Revision 1.1  1995/09/25  15:32:52  olf
  21. # Initial revision
  22. #
  23. # Revision 1.6  1994/08/16  20:33:19  Kochtopf
  24. # StrPtr aus Arts importiert
  25. #
  26. # Revision 1.5  1994/08/11  17:00:11  Kochtopf
  27. # *** empty log message ***
  28. #
  29. # Revision 1.4  1994/02/09  14:50:03  Kochtopf
  30. # Versionsnummer in 2.0 geaendert.
  31. #
  32. # Revision 1.3  1994/02/02  09:37:18  Kochtopf
  33. # app bei fail in VAR-Parameter geaendert.
  34. #
  35. # Revision 1.2  1994/02/01  16:49:10  Kochtopf
  36. # kleine Veraenderungen.
  37. #
  38. **
  39. *)
  40.  
  41. IMPORT R;
  42. FROM Arts IMPORT StrPtr;
  43. FROM SYSTEM IMPORT ADDRESS;
  44. FROM IntuitionD IMPORT IClassPtr;
  45.  
  46. TYPE APTR = ADDRESS;
  47.  
  48. PROCEDURE DoMethod(obj{R.A2} : APTR; msg{R.A1} : APTR);
  49. PROCEDURE DOMethod(obj{R.A2} : APTR; msg{R.A1} : APTR) : LONGINT;
  50. (*$ IF Locale *)
  51. PROCEDURE fail(VAR app : APTR; str : StrPtr);
  52. (*$ ELSE *)
  53. PROCEDURE fail(VAR app : APTR; str : ARRAY OF CHAR);
  54. (*$ ENDIF *)
  55.  
  56. END MuiSupport.
  57.  
  58.